function x = snijtest(c,r)
%Test functie voor snijcirkel
t=linspace(0,2*pi,100);
x1=r(1,1)*cos(t)+c(1,1);
y1=r(1,1)*sin(t)+c(1,2);
x2=r(1,2)*cos(t)+c(2,1);
y2=r(1,2)*sin(t)+c(2,2);

x=snijcirkel(c,r);
x3=[0,x(1,1)];
y3=[0,x(1,2)];

plot(x1,y1,x2,y2,x3,y3)
axis equal
shg
end

